home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / guide_files / trace.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  16.2 KB  |  597 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   tcntrl
  6.     :owner                  nil
  7.     :width                  264
  8.     :height                 131
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Trace Control"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  tcntrl
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  264
  30.     :height                 131
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            t
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :text-field
  42.     :name                   traceno
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      16
  46.     :y                      20
  47.     :width                  120
  48.     :height                 15
  49.     :value-x                65
  50.     :value-y                20
  51.     :value-length           2
  52.     :stored-length          4
  53.     :rows                   3
  54.     :foreground-color       ""
  55.     :text-type              :numeric
  56.     :label                  "Trace:"
  57.     :label-type             :string
  58.     :layout-type            :horizontal
  59.     :value-underlined       t
  60.     :max-value              100
  61.     :min-value              1
  62.     :initial-value          0
  63.     :initial-state          :active
  64.     :read-only              nil
  65.     :notify-handler         traceno_proc
  66.     :event-handler          nil
  67.     :user-data              ()
  68.     :actions                (
  69.         (
  70.         :from                   (tcntrl traceno)
  71.         :when                   (Notify )
  72.         :to                     (tcntrl traceno)
  73.         :function_type          CallFunction
  74.         :arg_type               ()
  75.         :action                 (traceno_proc)
  76.         )
  77.     )
  78. )
  79. (
  80.     :type                   :text-field
  81.     :name                   radius
  82.     :owner                  controls1
  83.     :help                   ""
  84.     :x                      16
  85.     :y                      45
  86.     :width                  151
  87.     :height                 15
  88.     :value-x                96
  89.     :value-y                45
  90.     :value-length           1
  91.     :stored-length          1
  92.     :rows                   3
  93.     :foreground-color       ""
  94.     :text-type              :numeric
  95.     :label                  "Averaging:"
  96.     :label-type             :string
  97.     :layout-type            :horizontal
  98.     :value-underlined       t
  99.     :max-value              10
  100.     :min-value              0
  101.     :initial-value          0
  102.     :initial-state          :active
  103.     :read-only              nil
  104.     :notify-handler         rad_proc
  105.     :event-handler          nil
  106.     :user-data              ()
  107.     :actions                (
  108.         (
  109.         :from                   (tcntrl radius)
  110.         :when                   (Notify )
  111.         :to                     (tcntrl radius)
  112.         :function_type          CallFunction
  113.         :arg_type               ()
  114.         :action                 (rad_proc)
  115.         )
  116.     )
  117. )
  118. (
  119.     :type                   :setting
  120.     :name                   scale
  121.     :owner                  controls1
  122.     :help                   ""
  123.     :x                      16
  124.     :y                      70
  125.     :width                  177
  126.     :height                 23
  127.     :value-x                77
  128.     :value-y                70
  129.     :rows                   1
  130.     :columns                0
  131.     :layout-type            :horizontal
  132.     :foreground-color       ""
  133.     :setting-type           :stack
  134.     :selection-required     t
  135.     :label                  "Scaling:"
  136.     :label-type             :string
  137.     :notify-handler         scale_proc
  138.     :event-handler          nil
  139.     :choices                ("Image Scaled" "Trace Scaled" "Manual" )
  140.     :choice-label-types     (:string :string :string )
  141.     :choice-colors          ("" "" "" )
  142.     :choice-defaults        (nil nil nil )
  143.     :initial-selections     (nil nil nil )
  144.     :initial-state          :active
  145.     :user-data              ()
  146.     :actions                (
  147.         (
  148.         :from                   (tcntrl scale)
  149.         :when                   (Notify )
  150.         :to                     (tcntrl scale)
  151.         :function_type          CallFunction
  152.         :arg_type               ()
  153.         :action                 (scale_proc)
  154.         )
  155.     )
  156. )
  157. (
  158.     :type                   :text-field
  159.     :name                   min
  160.     :owner                  controls1
  161.     :help                   ""
  162.     :x                      16
  163.     :y                      103
  164.     :width                  108
  165.     :height                 15
  166.     :value-x                53
  167.     :value-y                103
  168.     :value-length           4
  169.     :stored-length          4
  170.     :rows                   3
  171.     :foreground-color       ""
  172.     :text-type              :numeric
  173.     :label                  "Min:"
  174.     :label-type             :string
  175.     :layout-type            :horizontal
  176.     :value-underlined       t
  177.     :max-value              255
  178.     :min-value              0
  179.     :initial-value          0
  180.     :initial-state          :active
  181.     :read-only              nil
  182.     :notify-handler         min_proc
  183.     :event-handler          nil
  184.     :user-data              ()
  185.     :actions                (
  186.         (
  187.         :from                   (tcntrl min)
  188.         :when                   (Notify )
  189.         :to                     (tcntrl min)
  190.         :function_type          CallFunction
  191.         :arg_type               ()
  192.         :action                 (min_proc)
  193.         )
  194.     )
  195. )
  196. (
  197.     :type                   :text-field
  198.     :name                   max
  199.     :owner                  controls1
  200.     :help                   ""
  201.     :x                      144
  202.     :y                      103
  203.     :width                  109
  204.     :height                 15
  205.     :value-x                182
  206.     :value-y                103
  207.     :value-length           4
  208.     :stored-length          8
  209.     :rows                   3
  210.     :foreground-color       ""
  211.     :text-type              :numeric
  212.     :label                  "Max:"
  213.     :label-type             :string
  214.     :layout-type            :horizontal
  215.     :value-underlined       t
  216.     :max-value              100
  217.     :min-value              0
  218.     :initial-value          0
  219.     :initial-state          :active
  220.     :read-only              nil
  221.     :notify-handler         max_proc
  222.     :event-handler          nil
  223.     :user-data              ()
  224.     :actions                (
  225.         (
  226.         :from                   (tcntrl max)
  227.         :when                   (Notify )
  228.         :to                     (tcntrl max)
  229.         :function_type          CallFunction
  230.         :arg_type               ()
  231.         :action                 (max_proc)
  232.         )
  233.     )
  234. )
  235. (
  236.     :type                   :popup-window
  237.     :name                   trwin
  238.     :owner                  nil
  239.     :width                  268
  240.     :height                 384
  241.     :background-color       ""
  242.     :foreground-color       ""
  243.     :label                  "GENIAL trace"
  244.     :label-type             :string
  245.     :initial-state          :invisible
  246.     :show-footer            nil
  247.     :resizable              nil
  248.     :pinned                 t
  249.     :done-handler           nil
  250.     :event-handler          nil
  251.     :user-data              ()
  252.     :actions                ()
  253. )
  254. (
  255.     :type                   :control-area
  256.     :name                   controls2
  257.     :owner                  trwin
  258.     :help                   ""
  259.     :x                      0
  260.     :y                      0
  261.     :width                  268
  262.     :height                 67
  263.     :background-color       ""
  264.     :foreground-color       ""
  265.     :initial-state          :visible
  266.     :show-border            nil
  267.     :menu                   nil
  268.     :event-handler          nil
  269.     :user-data              ()
  270.     :actions                ()
  271. )
  272. (
  273.     :type                   :message
  274.     :name                   mes1
  275.     :owner                  controls2
  276.     :help                   ""
  277.     :x                      8
  278.     :y                      8
  279.     :width                  86
  280.     :height                 13
  281.     :foreground-color       ""
  282.     :label                  "Value: 11111"
  283.     :label-type             :string
  284.     :label-bold             t
  285.     :initial-state          :active
  286.     :event-handler          nil
  287.     :user-data              ()
  288.     :actions                ()
  289. )
  290. (
  291.     :type                   :button
  292.     :name                   tr_refresh
  293.     :owner                  controls2
  294.     :help                   ""
  295.     :x                      160
  296.     :y                      8
  297.     :width                  64
  298.     :height                 19
  299.     :constant-width         nil
  300.     :button-type            :normal
  301.     :foreground-color       ""
  302.     :label                  "Refresh"
  303.     :label-type             :string
  304.     :initial-state          :active
  305.     :menu                   nil
  306.     :notify-handler         trace_refresh_proc
  307.     :event-handler          nil
  308.     :user-data              ()
  309.     :actions                (
  310.         (
  311.         :from                   (trwin tr_refresh)
  312.         :when                   (Notify )
  313.         :to                     (trwin tr_refresh)
  314.         :function_type          CallFunction
  315.         :arg_type               ()
  316.         :action                 (trace_refresh_proc)
  317.         )
  318.     )
  319. )
  320. (
  321.     :type                   :message
  322.     :name                   mes3
  323.     :owner                  controls2
  324.     :help                   ""
  325.     :x                      8
  326.     :y                      24
  327.     :width                  85
  328.     :height                 13
  329.     :foreground-color       ""
  330.     :label                  "Sum: 111111"
  331.     :label-type             :string
  332.     :label-bold             t
  333.     :initial-state          :active
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                ()
  337. )
  338. (
  339.     :type                   :button
  340.     :name                   options
  341.     :owner                  controls2
  342.     :help                   ""
  343.     :x                      160
  344.     :y                      32
  345.     :width                  75
  346.     :height                 19
  347.     :constant-width         nil
  348.     :button-type            :normal
  349.     :foreground-color       ""
  350.     :label                  "Options..."
  351.     :label-type             :string
  352.     :initial-state          :active
  353.     :menu                   nil
  354.     :notify-handler         trace_opt_proc
  355.     :event-handler          nil
  356.     :user-data              ()
  357.     :actions                (
  358.         (
  359.         :from                   (trwin options)
  360.         :when                   (Notify )
  361.         :to                     (trwin options)
  362.         :function_type          CallFunction
  363.         :arg_type               ()
  364.         :action                 (trace_opt_proc)
  365.         )
  366.     )
  367. )
  368. (
  369.     :type                   :message
  370.     :name                   mes4
  371.     :owner                  controls2
  372.     :help                   ""
  373.     :x                      8
  374.     :y                      40
  375.     :width                  102
  376.     :height                 13
  377.     :foreground-color       ""
  378.     :label                  "Average: 11111"
  379.     :label-type             :string
  380.     :label-bold             t
  381.     :initial-state          :active
  382.     :event-handler          nil
  383.     :user-data              ()
  384.     :actions                ()
  385. )
  386. (
  387.     :type                   :canvas-pane
  388.     :name                   trcanv
  389.     :owner                  trwin
  390.     :help                   ""
  391.     :x                      0
  392.     :y                      67
  393.     :width                  268
  394.     :height                 275
  395.     :background-color       ""
  396.     :foreground-color       ""
  397.     :initial-state          :visible
  398.     :draggable              nil
  399.     :droppable              nil
  400.     :default-drop-site      nil
  401.     :menu                   nil
  402.     :horizontal-scrollbar   nil
  403.     :scrollable-width       268
  404.     :vertical-scrollbar     nil
  405.     :scrollable-height      275
  406.     :repaint-proc           trcanv_repaint_proc
  407.     :event-handler          trcanv_event_proc
  408.     :drawing-model          :xwindows
  409.     :user-data              ()
  410.     :actions                (
  411.         (
  412.         :from                   (trwin trcanv)
  413.         :when                   (Repaint )
  414.         :to                     (trwin trcanv)
  415.         :function_type          CallFunction
  416.         :arg_type               ()
  417.         :action                 (trcanv_repaint_proc)
  418.         )
  419.         (
  420.         :from                   (trwin trcanv)
  421.         :when                   (AnyEvent )
  422.         :to                     (trwin trcanv)
  423.         :function_type          CallFunction
  424.         :arg_type               ()
  425.         :action                 (trcanv_event_proc)
  426.         )
  427.     )
  428. )
  429. (
  430.     :type                   :control-area
  431.     :name                   controls3
  432.     :owner                  trwin
  433.     :help                   ""
  434.     :x                      0
  435.     :y                      342
  436.     :width                  268
  437.     :height                 42
  438.     :background-color       ""
  439.     :foreground-color       ""
  440.     :initial-state          :visible
  441.     :show-border            nil
  442.     :menu                   nil
  443.     :event-handler          nil
  444.     :user-data              ()
  445.     :actions                ()
  446. )
  447. (
  448.     :type                   :setting
  449.     :name                   integrate
  450.     :owner                  controls3
  451.     :help                   ""
  452.     :x                      8
  453.     :y                      8
  454.     :width                  214
  455.     :height                 23
  456.     :value-x                188
  457.     :value-y                8
  458.     :rows                   1
  459.     :columns                0
  460.     :layout-type            :horizontal
  461.     :foreground-color       ""
  462.     :setting-type           :check
  463.     :selection-required     t
  464.     :label                  "Select Integration region:"
  465.     :label-type             :string
  466.     :notify-handler         nil
  467.     :event-handler          nil
  468.     :choices                ("" )
  469.     :choice-label-types     (:string )
  470.     :choice-colors          ("" )
  471.     :initial-selections     (nil )
  472.     :initial-state          :active
  473.     :user-data              ()
  474.     :actions                ()
  475. )
  476. (
  477.     :type                   :button
  478.     :name                   intg_eval
  479.     :owner                  controls3
  480.     :help                   ""
  481.     :x                      216
  482.     :y                      8
  483.     :width                  43
  484.     :height                 19
  485.     :constant-width         nil
  486.     :button-type            :normal
  487.     :foreground-color       ""
  488.     :label                  "eval"
  489.     :label-type             :string
  490.     :initial-state          :active
  491.     :menu                   nil
  492.     :notify-handler         integrate_eval_proc
  493.     :event-handler          nil
  494.     :user-data              ()
  495.     :actions                (
  496.         (
  497.         :from                   (trwin intg_eval)
  498.         :when                   (Notify )
  499.         :to                     (trwin intg_eval)
  500.         :function_type          CallFunction
  501.         :arg_type               ()
  502.         :action                 (integrate_eval_proc)
  503.         )
  504.     )
  505. )
  506. (
  507.     :type                   :popup-window
  508.     :name                   intgwin
  509.     :owner                  nil
  510.     :width                  212
  511.     :height                 295
  512.     :background-color       ""
  513.     :foreground-color       ""
  514.     :label                  "Integrate"
  515.     :label-type             :string
  516.     :initial-state          :invisible
  517.     :show-footer            nil
  518.     :resizable              nil
  519.     :pinned                 nil
  520.     :done-handler           nil
  521.     :event-handler          nil
  522.     :user-data              ()
  523.     :actions                ()
  524. )
  525. (
  526.     :type                   :control-area
  527.     :name                   controls4
  528.     :owner                  intgwin
  529.     :help                   ""
  530.     :x                      0
  531.     :y                      0
  532.     :width                  212
  533.     :height                 32
  534.     :background-color       ""
  535.     :foreground-color       ""
  536.     :initial-state          :visible
  537.     :show-border            nil
  538.     :menu                   nil
  539.     :event-handler          nil
  540.     :user-data              ()
  541.     :actions                ()
  542. )
  543. (
  544.     :type                   :message
  545.     :name                   message1
  546.     :owner                  controls4
  547.     :help                   ""
  548.     :x                      8
  549.     :y                      8
  550.     :width                  180
  551.     :height                 13
  552.     :foreground-color       ""
  553.     :label                  "Integral Total: 9999999999"
  554.     :label-type             :string
  555.     :label-bold             t
  556.     :initial-state          :active
  557.     :event-handler          nil
  558.     :user-data              ()
  559.     :actions                ()
  560. )
  561. (
  562.     :type                   :canvas-pane
  563.     :name                   intgcanv
  564.     :owner                  intgwin
  565.     :help                   ""
  566.     :x                      0
  567.     :y                      32
  568.     :width                  212
  569.     :height                 265
  570.     :background-color       ""
  571.     :foreground-color       ""
  572.     :initial-state          :visible
  573.     :draggable              nil
  574.     :droppable              nil
  575.     :default-drop-site      nil
  576.     :menu                   nil
  577.     :horizontal-scrollbar   nil
  578.     :scrollable-width       212
  579.     :vertical-scrollbar     nil
  580.     :scrollable-height      265
  581.     :repaint-proc           icanv_repaint_proc
  582.     :event-handler          nil
  583.     :drawing-model          :xwindows
  584.     :user-data              ()
  585.     :actions                (
  586.         (
  587.         :from                   (intgwin intgcanv)
  588.         :when                   (Repaint )
  589.         :to                     (intgwin intgcanv)
  590.         :function_type          CallFunction
  591.         :arg_type               ()
  592.         :action                 (icanv_repaint_proc)
  593.         )
  594.     )
  595. )
  596. )
  597.